home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Whiteline: delta
/
whiteline CD Series - delta.iso
/
progtool
/
modula2
/
module
/
preislis.def
< prev
next >
Wrap
Text File
|
1995-11-25
|
3KB
|
62 lines
(******************************************************************************)
(* This MODULE is Public Domain. Copy me like a beast! *)
(* Christian Ledermann *)
(* Wölfelkofen 2 *)
(* 84166 Adlkofen *)
(******************************************************************************)
(* *)
(* Started: 20.12.92 03:54:30 *)
(* Version: 20.01.94 04:12:54 *)
(* *)
(******************************************************************************)
(* *)
(* Diese Software ist ohne jede Garantie. Ich verspreche *)
(* keinerlei Wartung und übernehme keine Verantwortung für Schäden die *)
(* durch die Benutzung dieses Programmes entstehen. *)
(* Jegliche Ersatzansprüche lehne ich ab. *)
(* *)
(******************************************************************************)
DEFINITION MODULE PreisListe;
(* Entnommen ST-Computer 10/89*)
TYPE PriceList;
GTString= ARRAY [0..15] OF CHAR;
TYPE EKPreis = RECORD TreeIndex : INTEGER;
Getraenk : GTString;
Preis,
FlaschenProKasten : INTEGER;
NeuBezogeneKaesten,
ZuBezahlendeKaesten,
KaestenGes : INTEGER;
END(*RECORD*);
FindProc = PROCEDURE (EKPreis,EKPreis):BOOLEAN;
VAR VerkaufsPreis : RECORD BierPreis , LimoPreis :INTEGER;
END(*RECORD*);
PROCEDURE MakePriceList(VAR L:PriceList);
PROCEDURE KillPriceList(VAR L:PriceList);
PROCEDURE First(VAR L:PriceList);
PROCEDURE Last(VAR L:PriceList);
PROCEDURE Next(VAR L:PriceList);
PROCEDURE Prev(VAR L:PriceList);
PROCEDURE Empty(VAR L:PriceList):BOOLEAN;
PROCEDURE AtFirst(VAR L:PriceList):BOOLEAN;
PROCEDURE AtLast(VAR L:PriceList):BOOLEAN;
PROCEDURE Find(VAR L:PriceList;VAR Value:EKPreis;
VAR Finde:FindProc; Key:EKPreis ):BOOLEAN;
PROCEDURE FindFirst(VAR L:PriceList;VAR Value:EKPreis;
VAR Finde:FindProc; Key:EKPreis):BOOLEAN;
PROCEDURE FindNext(VAR L:PriceList;VAR Value:EKPreis;
VAR Finde:FindProc;Key:EKPreis):BOOLEAN;
PROCEDURE GetValue(VAR L:PriceList; VAR Value:EKPreis):BOOLEAN;
PROCEDURE SetValue(VAR L:PriceList; Value:EKPreis);
PROCEDURE EnterElement(VAR L:PriceList);
PROCEDURE AppendElement(VAR L:PriceList);
PROCEDURE RemoveElement(VAR L:PriceList);
END PreisListe.